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In questa lezione vedremo quelle istruzioni, già introdotte 
nello GRAFICA 1, che ci permettono di accedere, per 
leggere o scrivere doti, in tutte le 65536 locazioni di 
memoria del computer e cioè: POKE e PEEK. 

Ogni locazione contiene un byte, cioè uno sequenza di 8 
cifre costituite dai numeri 1 e0. Ogni cifro 0o 1 è chiomata 
bit. 

Ad esempio 00001100 è un byte, cioè un insieme di 8 
bits. Il numero 00001100 è chiomato binario (perchè 
utilizzo due cifre 0 e 1 ) e corrisponde al numero 12 in 
decimale. 

Per memorizzare un byte in uno locazione di memoria devi 
usare l'istruzione POKE seguito dall'indirizzo di memoria, 
dolio virgolo e dal valore che vorrai memorizzare. Così POKE 
4096, 34 memorizzerà il 34 nello locazione 4096. 

Tieni presente che il massimo numero memorizzabile in uno 
locazione è 255, doto che non si possono raggiungere 
numeri superiori con tutte le possibili combinazioni di 8 cifre 
binarie. ,_ 




Il PEEK invece svolge la funzione opposto al POKE, infatti 
serve a leggere il contenuto di uno locazione di memoria. 
Quindi, od esempio, scrivendo PPJNT PEEK (4096) verrà 
stampato il valore del byte contenuto nello locazione 4096. 
Ma il POKE e il PEEK non si usano solo per cambiare i colori 
dello schermo e per creare effetti grafici (come abbiamo 
visto negli allegati di grafica). Infatti il loro impiego è 
vastissimo e serve od esempio per poter usare i suoni, per 
gestire le aree di memoria del video e del colore che 
servono a contenere i codici dei caratteri visualizzati e, 
oppunto, il loro colore. 





Naturalmente per poter usare le istruzioni POKE e PEEK non 
basta sapere a cosa servono, ma bisogna anche conoscere, 
le locazioni di memoria su cui agire. 

Per questo ti spiegherò solo alcune locazioni che ancoro non 
conosci (le oltre più importanti le abbiamo già viste nelle 
monografie dedicate allo GRAFICA e al SUONO) e che ti 
potranno essere molto utili per i tuoi programmi. 



Ricorda che nel computer esistono 10 locazioni di memoria 
(do 631 o 640), chiomate BUFFER DI TASTIERA (memoria 
temporaneo), che servono a contenere i caratteri battuti 
sulla tastiera finché questi non vengono visualizzati sul video. 
Così quando si battono dei tosti mentre il computer sto 
eseguendo un lavoro, e quindi il cursore non è presente sul 
video, i codici dei caratteri battuti vengono memorizzati fino 
ad un massimo di 10, in atteso di essere visualizzati non 
appena riapparirà il cursore. 

Lo locazione che conterrà il numero dei caratteri presenti nel 
buffer di tastiera è lo 198. 

Quindi, od esempio, potrai simulare lo battuta dei due 
caratteri A e B memorizzandone il codice nel buffer di 
tastiera. 

Dove: POKE 631,65 inserisce nel buffer la lettera A; POKE 
632,66 lo lettera B; POKE 198,2 informo il computer che nel 
buffer sono contenuti due soli caratteri. 



Soluzione dell'esercizio: 

ESEMPIO PRATICO 

(lez. 24) 

100 dimn<300>:i=ti:p=1000 

300 -forK = lto300 

210 n<K) = int<rnd<0)*p + l) 

220 i=-t +n<K)!pr intn(K) 

230 nextK 

300 p r i n t ""totale ” ; t 

330 p r i n t ” me d i a " ; i n t < t /300 ) 

340 p ri ut "secondi imp iegat i ” ; ir.t < <t i - i )/60 > 

Come avrai notato dal listato è stato tolto un ciclo, doto che 
il programma può svolgere lo stesso funzione anche con un 
solo ciclo. 

In questo caso appena estratto un numero casuale verrà 
stampato direttamente sul video. 


Listato dell'esercizio: ESEMPIO PRATICO 
(CDM 64) 

100 poKe 53230,SipoKe 53231,3 

120 pr intchr$< 14) "SIS"-tab < 12) "SBEEEFREMI DEI TASTI" 

140 for K = 1 to 1000 

130 pr int "3"tab < 12)"SEEEEEEEEEEfNUMERO ” ; K 
130 next K 


Listato dell'esercizio: ESEMPIO PRATICO 
(VIC 20) 

100 poKe 36373,53 

120 pr intchr$< 14) ”aa"tab < 3 ) "ZESEEFREMI DEI TASTI" 

140 -for K = 1 to 1000 

160 p r i n t " 3" t ab < 3 ) ” sEfcfc&fcfcfcKfcfcl'JUMERO " ; k 
130 next K 
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Listato dell'esercizio: COMPLETA IL LISTATO 

10 ^orx=lto[*]!readwS<x):nextx 
20 data”for x = l to 10" 

30 data” C*3 110" 

40 data" input n” 

50 data "s =s + 1 " 

60 data "next [*)” 

70 data " i-f a<>2 then 100" 

80 s = C*l!foi'x = lto6 
90 E * 3 = i n t(rnd( 0 ) *6 + 1 ) 

100 i-f k> <r ) = 1 then C*3 
110 u <r)E*3 

120 pr int spr int E * 3 < 2 ) w $ < r ) :print 
130 input E * 3 : i-f s$=u$<r )then 150 
140 goto E * 3 

1^0 nextx:E*3=ti:print 

160 print" secondi:" C*3<<-f-s> /'60 ) 


PROGRAMMIAMO INSIEME (CDM 64) 

10 poKe53230,3spoKe53281,3 
20 dire a$<100>,b$<100) 

30 pr int ”SH"tab < 10) "scr iv i W inefl per fihireSIST 
40 n=n+l 

50 p> inttab<10)input"nome";a$<n):i f !en<a$Cn)j>15 then 50 
60 i-f a$<n)="-f ine" then n=n-l:goto 80 
70 i-f n < 100 then «10 
80 pr int "Slattend i ...” 

90 h = l 

100 for i=l to n 

110 for K = 1 to n 

120 i-f a$<i)<a$<K) then h=h + l 

130 next K 

140 i-f b*Kh)<>" " then h =h + 1 : goto 140 

150 b$<h)=a*<i):h=l:next i 

160 gosub 240 

170 -for K=n to 1 step-1 

130 printtab<10)b$<K) 

190 c =c + 1 : i-f c < 15 then 230 

200 pr int ”EH"tab<IO)"H pr s^i il return aS " 

210 gety$: i-f y$< >chr ?< 13) then 210 
220 c=0:gosub 2 <*o 
230 next K : end 

240 pr int "3S"tab < 10) " ,- 

250 printtab<10)"i nomi ordinati |" 

260 pr inttab < 10) " i- igi" 

270 return 
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PROGRAMMIAMO INSIEME (V1C 20) 

10 poKo 36879,59 
80 dim a$< J.00> ,b*C 100> 

30 or int "jSHtecr iv i Bfinefl per finire 213" 

40 = ►■% *r 1 

50 inpu+"noms";3i$(n): if len(a$(:' >) M5 then 50 
60 if a$(n)="fine” then n=n-1sgoto 30 
70 if n<100 then 40 
80 print"Sfettend i ..." 

90 h = ! 

100 fon i = 1 to n 

110 fon K-l tc n 

180 i•* 5*(i)<a$(K) then h =h * 1 

130 n e x t K 

140 if b*<h><>"” then h =h + 1 : goto 1 =30 

150 bt(h)=a$(i):h=i:next i 

160 sosub 240 

170 for K=n to 1 step-1 

180 pri n t b $ < K) 

190 c =c + 1 s if c <15 then 830 

800 pr int "SEBI premi il return aa " 

810 ge+y«:ify*<>chr$<13) then 819 
880 c=0!gosub 840 
830 rext KSend 

840 prin-raS,-, ” 

£50 pr irt " | nomi ordinati !" 

860 pr irt" i-'SI" 

870 return 


Soluzione dell'esercizio: 
COMPLETA IL LISTATO 

(lez. 24) 

10 ^orK=lto3:readn$<K),i$(K)!nextK 

80 form=Ito 10 

30 r = int<rnd<0>*3+l > 

40 u=int<rnd(0)*3+1> 

50 c$=n$<r >:n*(r)=n*<u)!n$(ui>=c* 

60 c$=i*<r):i$(r)=i$(u):if(u)=cf 
70 nextm 
80 forK=lto3 

90 pr int "eh i ha inventato il!" 

100 printn$<K) 

110 input"irventore"'s$ 

180 ifs$=i$<K Jthenprint"esatto”igoto140 
130 pr int“sbagliato, era"iprinti$CK) 

140 nextK 

150 data"telefono","meucci" 

160 data"parafui mini”,"franKlin" 

170 data'cannocch iale" , "gal ilei" 



